home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pob197_f.zip / POB197.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-06-22  |  3KB  |  210 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     Int      INT001
  26.     Int      INT002
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     If (AnsiOn()) Goto LABEL001
  31.     DispFile PPEPath() + "noansi", 1 + 2 + 4
  32.     Stop
  33.     :LABEL001
  34.     INT002 = 3
  35.     STRING006 = PPEPath() + PPEName() + LangExt()
  36.     Print ReadLine(STRING006, 1)
  37.     INT001 = GetY()
  38.     STRING003 = ScrText(32, INT001, 17, 1)
  39.     STRING004 = ScrText(53, INT001, 12, 1)
  40.     If (INT001 == 23) Inc INT001
  41.     AnsiPos 2, INT001
  42.     Print "@X08POB197 1.15 POB(@X0Ac@X08)1996"
  43.     AnsiPos 79, INT001
  44.     STRING002 = ""
  45.     :LABEL002
  46.     STRING001 = TInkey(15000)
  47.     :LABEL003
  48.     STRING001 = Upper(STRING001)
  49.     Select Case (STRING001)
  50.         Case Chr(27), "UP"
  51.             AnsiPos 1, INT001
  52.             ClrEol
  53.             KbdStuff "N" + Chr(13)
  54.         Case Chr(13), " "
  55.             Select Case (INT002)
  56.                 Case 2
  57.                     AnsiPos 1, INT001
  58.                     ClrEol
  59.                     KbdStuff "N" + Chr(13)
  60.                 Case 1
  61.                     Goto LABEL004
  62.                 Case Else
  63.                     KbdStuff STRING002 + Chr(13)
  64.             End Select
  65.         Case (((((((STRING001 == "H") || (STRING001 == "Y")) || (STRING001 == "A")) || (STRING001 == "D")) || (STRING001 == "S")) || (STRING001 == "+")) || (STRING001 == "-")) || (STRING001 == "Q"), ((STRING001 == "H") || (STRING001 == "Y")) || (STRING001 == "A"), "H", "Y", "A", "D", "S", "+", "-", "Q", "E", "K", "J", "N", "V"
  66.             KbdStuff STRING001 + Chr(13)
  67.         Case "T"
  68.             KbdStuff "TS" + Chr(13)
  69.         Case "R"
  70.             KbdStuff "RE" + Chr(13)
  71.         Case "P"
  72.             KbdStuff "NS" + Chr(13)
  73.         Case "I"
  74.             KbdStuff "EDIT" + Chr(13)
  75.         Case "F"
  76.             KbdStuff "FLAG" + Chr(13)
  77.         Case "W"
  78.             KbdStuff "FORWARD" + Chr(13)
  79.         Case "M"
  80.             KbdStuff "MOVE"
  81.         Case "G"
  82.             KbdString "FLAG" + Chr(13)
  83.             KbdString "D" + Chr(13)
  84.         Case "X", "#"
  85.             :LABEL004
  86.             SaveScrn
  87.             Cls
  88.             DispFile PPEPath() + "197", 1 + 2 + 4
  89.             STRING001 = TInkey(1000)
  90.             RestScrn
  91.             Goto LABEL003
  92.         Case "LEFT"
  93.             If (INT002 == 1) Then
  94.                 INT002 = 3
  95.             Else
  96.                 Dec INT002
  97.             Endif
  98.             Select Case (INT002)
  99.                 Case 1
  100.                     AnsiPos 53, INT001
  101.                     Print STRING004
  102.                     AnsiPos 32, INT001
  103.                     STRING005 = STRING003
  104.                     STRING005 = StripAtx(STRING005)
  105.                     Print "@X4F", Upper(STRING005), "@X07"
  106.                     Goto LABEL002
  107.                 Case 2
  108.                     AnsiPos 79, INT001
  109.                     AnsiPos 53, INT001
  110.                     STRING005 = STRING004
  111.                     STRING005 = StripAtx(STRING005)
  112.                     Print "@X4F", Upper(STRING005), "@X07"
  113.                     Goto LABEL002
  114.                 Case 3
  115.                     AnsiPos 32, INT001
  116.                     Print STRING003
  117.                     AnsiPos 79, INT001
  118.                     Goto LABEL002
  119.             End Select
  120.         Case "RIGHT"
  121.             If (INT002 == 3) Then
  122.                 INT002 = 1
  123.             Else
  124.                 Inc INT002
  125.             Endif
  126.             Select Case (INT002)
  127.                 Case 1
  128.                     AnsiPos 32, INT001
  129.                     STRING005 = STRING003
  130.                     STRING005 = StripAtx(STRING005)
  131.                     Print "@X4F", Upper(STRING005), "@X07"
  132.                     Goto LABEL002
  133.                 Case 2
  134.                     AnsiPos 32, INT001
  135.                     Print STRING003
  136.                     AnsiPos 53, INT001
  137.                     STRING005 = STRING004
  138.                     STRING005 = StripAtx(STRING005)
  139.                     Print "@X4F", Upper(STRING005), "@X07"
  140.                     Goto LABEL002
  141.                 Case 3
  142.                     AnsiPos 53, INT001
  143.                     Print STRING004
  144.                     AnsiPos 79, INT001
  145.                     Goto LABEL002
  146.             End Select
  147.         Case Else
  148.             Goto LABEL002
  149.     End Select
  150.     End
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    1       End
  159. ;    1       Cls
  160. ;    2       ClrEol
  161. ;    56      Goto 
  162. ;    19      Let 
  163. ;    10      Print 
  164. ;    26      If 
  165. ;    2       DispFile 
  166. ;    2       Inc 
  167. ;    1       Dec 
  168. ;    1       Stop
  169. ;    11      KbdStuff 
  170. ;    15      AnsiPos 
  171. ;    1       SaveScrn
  172. ;    1       RestScrn
  173. ;    2       KbdString 
  174. ;
  175. ;
  176. ; ■ Functions used :
  177. ;
  178. ;    20      +
  179. ;    40      ==
  180. ;    25      !
  181. ;    15      ||
  182. ;    5       Upper()
  183. ;    14      Chr()
  184. ;    4       StripAtx()
  185. ;    3       PPEPath()
  186. ;    1       ReadLine()
  187. ;    1       LangExt()
  188. ;    1       AnsiOn()
  189. ;    1       GetY()
  190. ;    1       PPEName()
  191. ;    2       ScrText()
  192. ;    2       TInkey()
  193. ;
  194. ;------------------------------------------------------------------------------
  195. ;
  196. ; Analysis flags : No flag
  197. ;
  198. ;------------------------------------------------------------------------------
  199. ;
  200. ; Postprocessing report
  201. ;
  202. ;    0       For/Next
  203. ;    0       While/EndWhile
  204. ;    2       If/Then or If/Then/Else
  205. ;    4       Select Case
  206. ;
  207. ;------------------------------------------------------------------------------
  208. ;                 AEGiS Corp - Break the routines, code against the machines!
  209. ;------------------------------------------------------------------------------
  210.